home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / soft / Codice / Libro Visual Basic e Database / FormDocumento.vb < prev    next >
Encoding:
Text File  |  2003-09-30  |  32.5 KB  |  693 lines
  1. Public Class FormDocumento
  2.     Inherits System.Windows.Forms.Form
  3.  
  4. #Region " Windows Form Designer generated code "
  5.  
  6.     Public Sub New()
  7.         MyBase.New()
  8.  
  9.         'This call is required by the Windows Form Designer.
  10.         InitializeComponent()
  11.  
  12.         'Add any initialization after the InitializeComponent() call
  13.  
  14.     End Sub
  15.  
  16.     'Form overrides dispose to clean up the component list.
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  25.  
  26.     'Required by the Windows Form Designer
  27.     Private components As System.ComponentModel.IContainer
  28.  
  29.     'NOTE: The following procedure is required by the Windows Form Designer
  30.     'It can be modified using the Windows Form Designer.  
  31.     'Do not modify it using the code editor.
  32.     Public WithEvents TxtIdDocumento As System.Windows.Forms.TextBox
  33.     Public WithEvents TxtIntestatario As System.Windows.Forms.TextBox
  34.     Public WithEvents TxtTotaleDocumento As System.Windows.Forms.TextBox
  35.     Public WithEvents LblIdDocumento As System.Windows.Forms.Label
  36.     Public WithEvents LblIntestatario As System.Windows.Forms.Label
  37.     Public WithEvents LblData As System.Windows.Forms.Label
  38.     Public WithEvents LblTotaleDocumento As System.Windows.Forms.Label
  39.     Friend WithEvents ButtonCancella As System.Windows.Forms.Button
  40.     Friend WithEvents ButtonSalva As System.Windows.Forms.Button
  41.     Friend WithEvents ButtonNuovo As System.Windows.Forms.Button
  42.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  43.     Public WithEvents TxtIdRiga As System.Windows.Forms.TextBox
  44.     Public WithEvents TxtIdArticolo As System.Windows.Forms.TextBox
  45.     Public WithEvents TxtQuantita As System.Windows.Forms.TextBox
  46.     Public WithEvents TxtPrezzoCosto As System.Windows.Forms.TextBox
  47.     Public WithEvents TxtIva As System.Windows.Forms.TextBox
  48.     Public WithEvents LblIdRiga As System.Windows.Forms.Label
  49.     Public WithEvents LblIdArticolo As System.Windows.Forms.Label
  50.     Public WithEvents LblQuantita As System.Windows.Forms.Label
  51.     Public WithEvents LblPrezzoCosto As System.Windows.Forms.Label
  52.     Public WithEvents LblIva As System.Windows.Forms.Label
  53.     Friend WithEvents ButtonCancellaRiga As System.Windows.Forms.Button
  54.     Friend WithEvents ButtonSalvaRiga As System.Windows.Forms.Button
  55.     Friend WithEvents ButtonNuovoRiga As System.Windows.Forms.Button
  56.     Friend WithEvents ListView1 As System.Windows.Forms.ListView
  57.     Friend WithEvents ColumnCodice As System.Windows.Forms.ColumnHeader
  58.     Friend WithEvents ColumnCodiceArticolo As System.Windows.Forms.ColumnHeader
  59.     Friend WithEvents ColumnQuantita As System.Windows.Forms.ColumnHeader
  60.     Friend WithEvents ColumnPrezzo As System.Windows.Forms.ColumnHeader
  61.     Friend WithEvents ColumnIva As System.Windows.Forms.ColumnHeader
  62.     Friend WithEvents DTPickerData As System.Windows.Forms.DateTimePicker
  63.     Public WithEvents TxtDescrArticolo As System.Windows.Forms.TextBox
  64.     Public WithEvents TxtDescIntestatario As System.Windows.Forms.TextBox
  65.     Friend WithEvents ColumnDescrArticolo As System.Windows.Forms.ColumnHeader
  66.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  67.         Me.TxtIdDocumento = New System.Windows.Forms.TextBox()
  68.         Me.TxtIntestatario = New System.Windows.Forms.TextBox()
  69.         Me.TxtTotaleDocumento = New System.Windows.Forms.TextBox()
  70.         Me.LblIdDocumento = New System.Windows.Forms.Label()
  71.         Me.LblIntestatario = New System.Windows.Forms.Label()
  72.         Me.LblData = New System.Windows.Forms.Label()
  73.         Me.LblTotaleDocumento = New System.Windows.Forms.Label()
  74.         Me.ButtonCancella = New System.Windows.Forms.Button()
  75.         Me.ButtonSalva = New System.Windows.Forms.Button()
  76.         Me.ButtonNuovo = New System.Windows.Forms.Button()
  77.         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
  78.         Me.ButtonCancellaRiga = New System.Windows.Forms.Button()
  79.         Me.ButtonSalvaRiga = New System.Windows.Forms.Button()
  80.         Me.ButtonNuovoRiga = New System.Windows.Forms.Button()
  81.         Me.TxtDescrArticolo = New System.Windows.Forms.TextBox()
  82.         Me.TxtIdRiga = New System.Windows.Forms.TextBox()
  83.         Me.TxtIdArticolo = New System.Windows.Forms.TextBox()
  84.         Me.TxtQuantita = New System.Windows.Forms.TextBox()
  85.         Me.TxtPrezzoCosto = New System.Windows.Forms.TextBox()
  86.         Me.TxtIva = New System.Windows.Forms.TextBox()
  87.         Me.LblIdRiga = New System.Windows.Forms.Label()
  88.         Me.LblIdArticolo = New System.Windows.Forms.Label()
  89.         Me.LblQuantita = New System.Windows.Forms.Label()
  90.         Me.LblPrezzoCosto = New System.Windows.Forms.Label()
  91.         Me.LblIva = New System.Windows.Forms.Label()
  92.         Me.ListView1 = New System.Windows.Forms.ListView()
  93.         Me.ColumnCodice = New System.Windows.Forms.ColumnHeader()
  94.         Me.ColumnCodiceArticolo = New System.Windows.Forms.ColumnHeader()
  95.         Me.ColumnDescrArticolo = New System.Windows.Forms.ColumnHeader()
  96.         Me.ColumnQuantita = New System.Windows.Forms.ColumnHeader()
  97.         Me.ColumnPrezzo = New System.Windows.Forms.ColumnHeader()
  98.         Me.ColumnIva = New System.Windows.Forms.ColumnHeader()
  99.         Me.DTPickerData = New System.Windows.Forms.DateTimePicker()
  100.         Me.TxtDescIntestatario = New System.Windows.Forms.TextBox()
  101.         Me.GroupBox1.SuspendLayout()
  102.         Me.SuspendLayout()
  103.         '
  104.         'TxtIdDocumento
  105.         '
  106.         Me.TxtIdDocumento.AcceptsReturn = True
  107.         Me.TxtIdDocumento.AutoSize = False
  108.         Me.TxtIdDocumento.BackColor = System.Drawing.SystemColors.Window
  109.         Me.TxtIdDocumento.Cursor = System.Windows.Forms.Cursors.IBeam
  110.         Me.TxtIdDocumento.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  111.         Me.TxtIdDocumento.ForeColor = System.Drawing.SystemColors.WindowText
  112.         Me.TxtIdDocumento.Location = New System.Drawing.Point(112, 8)
  113.         Me.TxtIdDocumento.MaxLength = 0
  114.         Me.TxtIdDocumento.Name = "TxtIdDocumento"
  115.         Me.TxtIdDocumento.RightToLeft = System.Windows.Forms.RightToLeft.No
  116.         Me.TxtIdDocumento.Size = New System.Drawing.Size(144, 19)
  117.         Me.TxtIdDocumento.TabIndex = 10
  118.         Me.TxtIdDocumento.Text = ""
  119.         '
  120.         'TxtIntestatario
  121.         '
  122.         Me.TxtIntestatario.AcceptsReturn = True
  123.         Me.TxtIntestatario.AutoSize = False
  124.         Me.TxtIntestatario.BackColor = System.Drawing.SystemColors.Window
  125.         Me.TxtIntestatario.Cursor = System.Windows.Forms.Cursors.IBeam
  126.         Me.TxtIntestatario.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  127.         Me.TxtIntestatario.ForeColor = System.Drawing.SystemColors.WindowText
  128.         Me.TxtIntestatario.Location = New System.Drawing.Point(112, 32)
  129.         Me.TxtIntestatario.MaxLength = 0
  130.         Me.TxtIntestatario.Name = "TxtIntestatario"
  131.         Me.TxtIntestatario.RightToLeft = System.Windows.Forms.RightToLeft.No
  132.         Me.TxtIntestatario.Size = New System.Drawing.Size(40, 19)
  133.         Me.TxtIntestatario.TabIndex = 11
  134.         Me.TxtIntestatario.Text = ""
  135.         '
  136.         'TxtTotaleDocumento
  137.         '
  138.         Me.TxtTotaleDocumento.AcceptsReturn = True
  139.         Me.TxtTotaleDocumento.AutoSize = False
  140.         Me.TxtTotaleDocumento.BackColor = System.Drawing.SystemColors.Window
  141.         Me.TxtTotaleDocumento.Cursor = System.Windows.Forms.Cursors.IBeam
  142.         Me.TxtTotaleDocumento.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  143.         Me.TxtTotaleDocumento.ForeColor = System.Drawing.SystemColors.WindowText
  144.         Me.TxtTotaleDocumento.Location = New System.Drawing.Point(112, 80)
  145.         Me.TxtTotaleDocumento.MaxLength = 0
  146.         Me.TxtTotaleDocumento.Name = "TxtTotaleDocumento"
  147.         Me.TxtTotaleDocumento.RightToLeft = System.Windows.Forms.RightToLeft.No
  148.         Me.TxtTotaleDocumento.Size = New System.Drawing.Size(144, 19)
  149.         Me.TxtTotaleDocumento.TabIndex = 14
  150.         Me.TxtTotaleDocumento.Text = ""
  151.         '
  152.         'LblIdDocumento
  153.         '
  154.         Me.LblIdDocumento.BackColor = System.Drawing.SystemColors.Control
  155.         Me.LblIdDocumento.Cursor = System.Windows.Forms.Cursors.Default
  156.         Me.LblIdDocumento.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  157.         Me.LblIdDocumento.ForeColor = System.Drawing.SystemColors.ControlText
  158.         Me.LblIdDocumento.Location = New System.Drawing.Point(8, 8)
  159.         Me.LblIdDocumento.Name = "LblIdDocumento"
  160.         Me.LblIdDocumento.RightToLeft = System.Windows.Forms.RightToLeft.No
  161.         Me.LblIdDocumento.Size = New System.Drawing.Size(105, 17)
  162.         Me.LblIdDocumento.TabIndex = 15
  163.         Me.LblIdDocumento.Text = "Codice"
  164.         '
  165.         'LblIntestatario
  166.         '
  167.         Me.LblIntestatario.BackColor = System.Drawing.SystemColors.Control
  168.         Me.LblIntestatario.Cursor = System.Windows.Forms.Cursors.Default
  169.         Me.LblIntestatario.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  170.         Me.LblIntestatario.ForeColor = System.Drawing.SystemColors.ControlText
  171.         Me.LblIntestatario.Location = New System.Drawing.Point(8, 32)
  172.         Me.LblIntestatario.Name = "LblIntestatario"
  173.         Me.LblIntestatario.RightToLeft = System.Windows.Forms.RightToLeft.No
  174.         Me.LblIntestatario.Size = New System.Drawing.Size(105, 17)
  175.         Me.LblIntestatario.TabIndex = 16
  176.         Me.LblIntestatario.Text = "Intestatario"
  177.         '
  178.         'LblData
  179.         '
  180.         Me.LblData.BackColor = System.Drawing.SystemColors.Control
  181.         Me.LblData.Cursor = System.Windows.Forms.Cursors.Default
  182.         Me.LblData.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  183.         Me.LblData.ForeColor = System.Drawing.SystemColors.ControlText
  184.         Me.LblData.Location = New System.Drawing.Point(8, 56)
  185.         Me.LblData.Name = "LblData"
  186.         Me.LblData.RightToLeft = System.Windows.Forms.RightToLeft.No
  187.         Me.LblData.Size = New System.Drawing.Size(105, 17)
  188.         Me.LblData.TabIndex = 17
  189.         Me.LblData.Text = "Data"
  190.         '
  191.         'LblTotaleDocumento
  192.         '
  193.         Me.LblTotaleDocumento.BackColor = System.Drawing.SystemColors.Control
  194.         Me.LblTotaleDocumento.Cursor = System.Windows.Forms.Cursors.Default
  195.         Me.LblTotaleDocumento.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  196.         Me.LblTotaleDocumento.ForeColor = System.Drawing.SystemColors.ControlText
  197.         Me.LblTotaleDocumento.Location = New System.Drawing.Point(8, 80)
  198.         Me.LblTotaleDocumento.Name = "LblTotaleDocumento"
  199.         Me.LblTotaleDocumento.RightToLeft = System.Windows.Forms.RightToLeft.No
  200.         Me.LblTotaleDocumento.Size = New System.Drawing.Size(105, 17)
  201.         Me.LblTotaleDocumento.TabIndex = 19
  202.         Me.LblTotaleDocumento.Text = "TotaleDocumento"
  203.         '
  204.         'ButtonCancella
  205.         '
  206.         Me.ButtonCancella.Location = New System.Drawing.Point(296, 72)
  207.         Me.ButtonCancella.Name = "ButtonCancella"
  208.         Me.ButtonCancella.TabIndex = 49
  209.         Me.ButtonCancella.Text = "Cancella"
  210.         '
  211.         'ButtonSalva
  212.         '
  213.         Me.ButtonSalva.Location = New System.Drawing.Point(296, 40)
  214.         Me.ButtonSalva.Name = "ButtonSalva"
  215.         Me.ButtonSalva.TabIndex = 48
  216.         Me.ButtonSalva.Text = "Salva"
  217.         '
  218.         'ButtonNuovo
  219.         '
  220.         Me.ButtonNuovo.Location = New System.Drawing.Point(296, 8)
  221.         Me.ButtonNuovo.Name = "ButtonNuovo"
  222.         Me.ButtonNuovo.TabIndex = 47
  223.         Me.ButtonNuovo.Text = "Nuovo"
  224.         '
  225.         'GroupBox1
  226.         '
  227.         Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.ButtonCancellaRiga, Me.ButtonSalvaRiga, Me.ButtonNuovoRiga, Me.TxtDescrArticolo, Me.TxtIdRiga, Me.TxtIdArticolo, Me.TxtQuantita, Me.TxtPrezzoCosto, Me.TxtIva, Me.LblIdRiga, Me.LblIdArticolo, Me.LblQuantita, Me.LblPrezzoCosto, Me.LblIva})
  228.         Me.GroupBox1.Location = New System.Drawing.Point(8, 112)
  229.         Me.GroupBox1.Name = "GroupBox1"
  230.         Me.GroupBox1.Size = New System.Drawing.Size(384, 136)
  231.         Me.GroupBox1.TabIndex = 50
  232.         Me.GroupBox1.TabStop = False
  233.         Me.GroupBox1.Text = "Riga selezionata"
  234.         '
  235.         'ButtonCancellaRiga
  236.         '
  237.         Me.ButtonCancellaRiga.Location = New System.Drawing.Point(184, 104)
  238.         Me.ButtonCancellaRiga.Name = "ButtonCancellaRiga"
  239.         Me.ButtonCancellaRiga.TabIndex = 52
  240.         Me.ButtonCancellaRiga.Text = "Cancella"
  241.         '
  242.         'ButtonSalvaRiga
  243.         '
  244.         Me.ButtonSalvaRiga.Location = New System.Drawing.Point(96, 104)
  245.         Me.ButtonSalvaRiga.Name = "ButtonSalvaRiga"
  246.         Me.ButtonSalvaRiga.TabIndex = 51
  247.         Me.ButtonSalvaRiga.Text = "Salva"
  248.         '
  249.         'ButtonNuovoRiga
  250.         '
  251.         Me.ButtonNuovoRiga.Location = New System.Drawing.Point(8, 104)
  252.         Me.ButtonNuovoRiga.Name = "ButtonNuovoRiga"
  253.         Me.ButtonNuovoRiga.TabIndex = 50
  254.         Me.ButtonNuovoRiga.Text = "Nuovo"
  255.         '
  256.         'TxtDescrArticolo
  257.         '
  258.         Me.TxtDescrArticolo.AcceptsReturn = True
  259.         Me.TxtDescrArticolo.AutoSize = False
  260.         Me.TxtDescrArticolo.BackColor = System.Drawing.SystemColors.Window
  261.         Me.TxtDescrArticolo.Cursor = System.Windows.Forms.Cursors.IBeam
  262.         Me.TxtDescrArticolo.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  263.         Me.TxtDescrArticolo.ForeColor = System.Drawing.SystemColors.WindowText
  264.         Me.TxtDescrArticolo.Location = New System.Drawing.Point(208, 48)
  265.         Me.TxtDescrArticolo.MaxLength = 0
  266.         Me.TxtDescrArticolo.Name = "TxtDescrArticolo"
  267.         Me.TxtDescrArticolo.RightToLeft = System.Windows.Forms.RightToLeft.No
  268.         Me.TxtDescrArticolo.Size = New System.Drawing.Size(160, 19)
  269.         Me.TxtDescrArticolo.TabIndex = 42
  270.         Me.TxtDescrArticolo.Text = ""
  271.         '
  272.         'TxtIdRiga
  273.         '
  274.         Me.TxtIdRiga.AcceptsReturn = True
  275.         Me.TxtIdRiga.AutoSize = False
  276.         Me.TxtIdRiga.BackColor = System.Drawing.SystemColors.Window
  277.         Me.TxtIdRiga.Cursor = System.Windows.Forms.Cursors.IBeam
  278.         Me.TxtIdRiga.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  279.         Me.TxtIdRiga.ForeColor = System.Drawing.SystemColors.WindowText
  280.         Me.TxtIdRiga.Location = New System.Drawing.Point(80, 24)
  281.         Me.TxtIdRiga.MaxLength = 0
  282.         Me.TxtIdRiga.Name = "TxtIdRiga"
  283.         Me.TxtIdRiga.RightToLeft = System.Windows.Forms.RightToLeft.No
  284.         Me.TxtIdRiga.Size = New System.Drawing.Size(121, 19)
  285.         Me.TxtIdRiga.TabIndex = 32
  286.         Me.TxtIdRiga.Text = ""
  287.         '
  288.         'TxtIdArticolo
  289.         '
  290.         Me.TxtIdArticolo.AcceptsReturn = True
  291.         Me.TxtIdArticolo.AutoSize = False
  292.         Me.TxtIdArticolo.BackColor = System.Drawing.SystemColors.Window
  293.         Me.TxtIdArticolo.Cursor = System.Windows.Forms.Cursors.IBeam
  294.         Me.TxtIdArticolo.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  295.         Me.TxtIdArticolo.ForeColor = System.Drawing.SystemColors.WindowText
  296.         Me.TxtIdArticolo.Location = New System.Drawing.Point(80, 48)
  297.         Me.TxtIdArticolo.MaxLength = 0
  298.         Me.TxtIdArticolo.Name = "TxtIdArticolo"
  299.         Me.TxtIdArticolo.RightToLeft = System.Windows.Forms.RightToLeft.No
  300.         Me.TxtIdArticolo.Size = New System.Drawing.Size(121, 19)
  301.         Me.TxtIdArticolo.TabIndex = 33
  302.         Me.TxtIdArticolo.Text = ""
  303.         '
  304.         'TxtQuantita
  305.         '
  306.         Me.TxtQuantita.AcceptsReturn = True
  307.         Me.TxtQuantita.AutoSize = False
  308.         Me.TxtQuantita.BackColor = System.Drawing.SystemColors.Window
  309.         Me.TxtQuantita.Cursor = System.Windows.Forms.Cursors.IBeam
  310.         Me.TxtQuantita.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  311.         Me.TxtQuantita.ForeColor = System.Drawing.SystemColors.WindowText
  312.         Me.TxtQuantita.Location = New System.Drawing.Point(80, 72)
  313.         Me.TxtQuantita.MaxLength = 0
  314.         Me.TxtQuantita.Name = "TxtQuantita"
  315.         Me.TxtQuantita.RightToLeft = System.Windows.Forms.RightToLeft.No
  316.         Me.TxtQuantita.Size = New System.Drawing.Size(56, 19)
  317.         Me.TxtQuantita.TabIndex = 34
  318.         Me.TxtQuantita.Text = ""
  319.         '
  320.         'TxtPrezzoCosto
  321.         '
  322.         Me.TxtPrezzoCosto.AcceptsReturn = True
  323.         Me.TxtPrezzoCosto.AutoSize = False
  324.         Me.TxtPrezzoCosto.BackColor = System.Drawing.SystemColors.Window
  325.         Me.TxtPrezzoCosto.Cursor = System.Windows.Forms.Cursors.IBeam
  326.         Me.TxtPrezzoCosto.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  327.         Me.TxtPrezzoCosto.ForeColor = System.Drawing.SystemColors.WindowText
  328.         Me.TxtPrezzoCosto.Location = New System.Drawing.Point(208, 72)
  329.         Me.TxtPrezzoCosto.MaxLength = 0
  330.         Me.TxtPrezzoCosto.Name = "TxtPrezzoCosto"
  331.         Me.TxtPrezzoCosto.RightToLeft = System.Windows.Forms.RightToLeft.No
  332.         Me.TxtPrezzoCosto.Size = New System.Drawing.Size(64, 19)
  333.         Me.TxtPrezzoCosto.TabIndex = 35
  334.         Me.TxtPrezzoCosto.Text = ""
  335.         '
  336.         'TxtIva
  337.         '
  338.         Me.TxtIva.AcceptsReturn = True
  339.         Me.TxtIva.AutoSize = False
  340.         Me.TxtIva.BackColor = System.Drawing.SystemColors.Window
  341.         Me.TxtIva.Cursor = System.Windows.Forms.Cursors.IBeam
  342.         Me.TxtIva.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  343.         Me.TxtIva.ForeColor = System.Drawing.SystemColors.WindowText
  344.         Me.TxtIva.Location = New System.Drawing.Point(320, 72)
  345.         Me.TxtIva.MaxLength = 0
  346.         Me.TxtIva.Name = "TxtIva"
  347.         Me.TxtIva.RightToLeft = System.Windows.Forms.RightToLeft.No
  348.         Me.TxtIva.Size = New System.Drawing.Size(48, 19)
  349.         Me.TxtIva.TabIndex = 36
  350.         Me.TxtIva.Text = ""
  351.         '
  352.         'LblIdRiga
  353.         '
  354.         Me.LblIdRiga.BackColor = System.Drawing.SystemColors.Control
  355.         Me.LblIdRiga.Cursor = System.Windows.Forms.Cursors.Default
  356.         Me.LblIdRiga.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  357.         Me.LblIdRiga.ForeColor = System.Drawing.SystemColors.ControlText
  358.         Me.LblIdRiga.Location = New System.Drawing.Point(8, 24)
  359.         Me.LblIdRiga.Name = "LblIdRiga"
  360.         Me.LblIdRiga.RightToLeft = System.Windows.Forms.RightToLeft.No
  361.         Me.LblIdRiga.Size = New System.Drawing.Size(72, 17)
  362.         Me.LblIdRiga.TabIndex = 37
  363.         Me.LblIdRiga.Text = "Codice"
  364.         '
  365.         'LblIdArticolo
  366.         '
  367.         Me.LblIdArticolo.BackColor = System.Drawing.SystemColors.Control
  368.         Me.LblIdArticolo.Cursor = System.Windows.Forms.Cursors.Default
  369.         Me.LblIdArticolo.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  370.         Me.LblIdArticolo.ForeColor = System.Drawing.SystemColors.ControlText
  371.         Me.LblIdArticolo.Location = New System.Drawing.Point(8, 48)
  372.         Me.LblIdArticolo.Name = "LblIdArticolo"
  373.         Me.LblIdArticolo.RightToLeft = System.Windows.Forms.RightToLeft.No
  374.         Me.LblIdArticolo.Size = New System.Drawing.Size(105, 17)
  375.         Me.LblIdArticolo.TabIndex = 38
  376.         Me.LblIdArticolo.Text = "IdArticolo"
  377.         '
  378.         'LblQuantita
  379.         '
  380.         Me.LblQuantita.BackColor = System.Drawing.SystemColors.Control
  381.         Me.LblQuantita.Cursor = System.Windows.Forms.Cursors.Default
  382.         Me.LblQuantita.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  383.         Me.LblQuantita.ForeColor = System.Drawing.SystemColors.ControlText
  384.         Me.LblQuantita.Location = New System.Drawing.Point(8, 72)
  385.         Me.LblQuantita.Name = "LblQuantita"
  386.         Me.LblQuantita.RightToLeft = System.Windows.Forms.RightToLeft.No
  387.         Me.LblQuantita.Size = New System.Drawing.Size(105, 17)
  388.         Me.LblQuantita.TabIndex = 39
  389.         Me.LblQuantita.Text = "Quantita"
  390.         '
  391.         'LblPrezzoCosto
  392.         '
  393.         Me.LblPrezzoCosto.BackColor = System.Drawing.SystemColors.Control
  394.         Me.LblPrezzoCosto.Cursor = System.Windows.Forms.Cursors.Default
  395.         Me.LblPrezzoCosto.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  396.         Me.LblPrezzoCosto.ForeColor = System.Drawing.SystemColors.ControlText
  397.         Me.LblPrezzoCosto.Location = New System.Drawing.Point(152, 72)
  398.         Me.LblPrezzoCosto.Name = "LblPrezzoCosto"
  399.         Me.LblPrezzoCosto.RightToLeft = System.Windows.Forms.RightToLeft.No
  400.         Me.LblPrezzoCosto.Size = New System.Drawing.Size(105, 17)
  401.         Me.LblPrezzoCosto.TabIndex = 40
  402.         Me.LblPrezzoCosto.Text = "Prezzo"
  403.         '
  404.         'LblIva
  405.         '
  406.         Me.LblIva.BackColor = System.Drawing.SystemColors.Control
  407.         Me.LblIva.Cursor = System.Windows.Forms.Cursors.Default
  408.         Me.LblIva.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  409.         Me.LblIva.ForeColor = System.Drawing.SystemColors.ControlText
  410.         Me.LblIva.Location = New System.Drawing.Point(280, 72)
  411.         Me.LblIva.Name = "LblIva"
  412.         Me.LblIva.RightToLeft = System.Windows.Forms.RightToLeft.No
  413.         Me.LblIva.Size = New System.Drawing.Size(72, 17)
  414.         Me.LblIva.TabIndex = 41
  415.         Me.LblIva.Text = "Iva"
  416.         '
  417.         'ListView1
  418.         '
  419.         Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnCodice, Me.ColumnCodiceArticolo, Me.ColumnDescrArticolo, Me.ColumnQuantita, Me.ColumnPrezzo, Me.ColumnIva})
  420.         Me.ListView1.Location = New System.Drawing.Point(8, 256)
  421.         Me.ListView1.Name = "ListView1"
  422.         Me.ListView1.Size = New System.Drawing.Size(384, 96)
  423.         Me.ListView1.TabIndex = 51
  424.         Me.ListView1.View = System.Windows.Forms.View.Details
  425.         '
  426.         'ColumnCodice
  427.         '
  428.         Me.ColumnCodice.Text = "Codice"
  429.         '
  430.         'ColumnCodiceArticolo
  431.         '
  432.         Me.ColumnCodiceArticolo.Text = "Cod Art"
  433.         Me.ColumnCodiceArticolo.Width = 105
  434.         '
  435.         'ColumnDescrArticolo
  436.         '
  437.         Me.ColumnDescrArticolo.Text = "Descr. Articolo"
  438.         '
  439.         'ColumnQuantita
  440.         '
  441.         Me.ColumnQuantita.Text = "Quantitα"
  442.         '
  443.         'ColumnPrezzo
  444.         '
  445.         Me.ColumnPrezzo.Text = "Prezzo"
  446.         '
  447.         'ColumnIva
  448.         '
  449.         Me.ColumnIva.Text = "% Iva"
  450.         '
  451.         'DTPickerData
  452.         '
  453.         Me.DTPickerData.Format = System.Windows.Forms.DateTimePickerFormat.Short
  454.         Me.DTPickerData.Location = New System.Drawing.Point(112, 56)
  455.         Me.DTPickerData.Name = "DTPickerData"
  456.         Me.DTPickerData.Size = New System.Drawing.Size(144, 20)
  457.         Me.DTPickerData.TabIndex = 52
  458.         '
  459.         'TxtDescIntestatario
  460.         '
  461.         Me.TxtDescIntestatario.AcceptsReturn = True
  462.         Me.TxtDescIntestatario.AutoSize = False
  463.         Me.TxtDescIntestatario.BackColor = System.Drawing.SystemColors.Window
  464.         Me.TxtDescIntestatario.Cursor = System.Windows.Forms.Cursors.IBeam
  465.         Me.TxtDescIntestatario.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  466.         Me.TxtDescIntestatario.ForeColor = System.Drawing.SystemColors.WindowText
  467.         Me.TxtDescIntestatario.Location = New System.Drawing.Point(160, 32)
  468.         Me.TxtDescIntestatario.MaxLength = 0
  469.         Me.TxtDescIntestatario.Name = "TxtDescIntestatario"
  470.         Me.TxtDescIntestatario.RightToLeft = System.Windows.Forms.RightToLeft.No
  471.         Me.TxtDescIntestatario.Size = New System.Drawing.Size(96, 19)
  472.         Me.TxtDescIntestatario.TabIndex = 53
  473.         Me.TxtDescIntestatario.Text = ""
  474.         '
  475.         'FormDocumento
  476.         '
  477.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  478.         Me.ClientSize = New System.Drawing.Size(400, 358)
  479.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TxtDescIntestatario, Me.DTPickerData, Me.ListView1, Me.GroupBox1, Me.ButtonCancella, Me.ButtonSalva, Me.ButtonNuovo, Me.TxtIdDocumento, Me.TxtIntestatario, Me.TxtTotaleDocumento, Me.LblIdDocumento, Me.LblIntestatario, Me.LblData, Me.LblTotaleDocumento})
  480.         Me.Name = "FormDocumento"
  481.         Me.Text = "FormDocumento"
  482.         Me.GroupBox1.ResumeLayout(False)
  483.         Me.ResumeLayout(False)
  484.  
  485.     End Sub
  486.  
  487. #End Region
  488.     Dim BufDocumento As Documento
  489.     Dim BufRigaDocumento As RigaDocumento
  490.     Dim TipoDocumento As String
  491.     Private Sub ValorizzaBuffer()
  492.         With BufDocumento
  493.             On Error Resume Next
  494.             .IdDocumento = TxtIdDocumento.Text
  495.             .Intestatario = TxtIntestatario.Text
  496.             .Data = DTPickerData.Value
  497.             .Tipo = TipoDocumento
  498.             .TotaleDocumento = TxtTotaleDocumento.Text
  499.         End With
  500.     End Sub
  501.     Private Sub InserisciCampi()
  502.         With BufDocumento
  503.             TxtIdDocumento.Text = .IdDocumento
  504.             TxtIntestatario.Text = .Intestatario
  505.             DTPickerData.Value = .Data
  506.             TxtTotaleDocumento.Text = .TotaleDocumento
  507.             TxtDescIntestatario.Text = BufDocumento.DescrizioneIntestatario
  508.         End With
  509.     End Sub
  510.     Private Sub SvuotaCampi()
  511.         TxtIdDocumento.Text = ""
  512.         TxtIntestatario.Text = ""
  513.         DTPickerData.Value = Now
  514.         TxtTotaleDocumento.Text = ""
  515.         TxtDescIntestatario.Text = ""
  516.         ListView1.Items.Clear()
  517.     End Sub
  518.  
  519.  
  520.     Private Sub ValorizzaBufferRiga()
  521.         With BufRigaDocumento
  522.             On Error Resume Next
  523.             .IdRiga = TxtIdRiga.Text
  524.             .Key = .IdRiga
  525.             .IdDocumento = TxtIdDocumento.Text
  526.             .IdArticolo = TxtIdArticolo.Text
  527.             .Quantita = TxtQuantita.Text
  528.             .PrezzoCosto = TxtPrezzoCosto.Text
  529.             .Iva = TxtIva.Text
  530.         End With
  531.     End Sub
  532.     Private Sub InserisciCampiRiga()
  533.         With BufRigaDocumento
  534.             TxtIdRiga.Text = .IdRiga
  535.             TxtIdDocumento.Text = .IdDocumento
  536.             TxtIdArticolo.Text = .IdArticolo
  537.             TxtDescrArticolo.Text = .Articolo.Descrizione
  538.             TxtQuantita.Text = .Quantita
  539.             TxtPrezzoCosto.Text = .PrezzoCosto
  540.             TxtIva.Text = .Iva
  541.         End With
  542.     End Sub
  543.     Private Sub SvuotaCampiRiga()
  544.         TxtIdRiga.Text = ""
  545.         TxtIdArticolo.Text = ""
  546.         TxtDescrArticolo.Text = ""
  547.         TxtQuantita.Text = ""
  548.         TxtPrezzoCosto.Text = ""
  549.         TxtIva.Text = ""
  550.     End Sub
  551.     Private Sub SvuotaListaRighe()
  552.         ListView1.Items.Clear()
  553.     End Sub
  554.     Private Sub FormDocumento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  555.  
  556.     End Sub
  557.     Public Sub MioShow(ByVal tipo As String)
  558.         TipoDocumento = tipo
  559.         Me.Text = tipo
  560.         Me.Show()
  561.     End Sub
  562.  
  563.     Private Sub ButtonNuovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNuovo.Click
  564.         BufDocumento = New Documento()
  565.         SvuotaCampi()
  566.     End Sub
  567.  
  568.     Private Sub ButtonSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSalva.Click
  569.         If BufDocumento Is Nothing Then
  570.             MessageBox.Show("Premere prima il tasto nuovo")
  571.             Exit Sub
  572.         End If
  573.         ValorizzaBuffer()
  574.         BufDocumento.Salva()
  575.         InserisciCampi()
  576.     End Sub
  577.  
  578.     Private Sub ButtonNuovoRiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNuovoRiga.Click
  579.         BufRigaDocumento = New RigaDocumento()
  580.         SvuotaCampiRiga()
  581.     End Sub
  582.  
  583.     Private Sub ButtonSalvaRiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSalvaRiga.Click
  584.         If BufRigaDocumento Is Nothing Then
  585.             MessageBox.Show("premere prima il tasto nuovo")
  586.             Exit Sub
  587.         End If
  588.         ValorizzaBufferRiga()
  589.         Try
  590.             BufDocumento.ColRigaDocumento.Add(BufRigaDocumento)
  591.         Catch
  592.         End Try
  593.         RiempiLista()
  594.         BufRigaDocumento = Nothing
  595.         SvuotaCampiRiga()
  596.     End Sub
  597.  
  598.     Private Sub RiempiLista()
  599.         Dim tmpRiga As RigaDocumento
  600.         Dim LItem As ListViewItem
  601.         Dim SItem As ListViewItem.ListViewSubItem
  602.         ListView1.Items.Clear()
  603.         For Each tmpRiga In BufDocumento.ColRigaDocumento.Elements
  604.             LItem = ListView1.Items.Add(tmpRiga.IdRiga)
  605.             SItem = LItem.SubItems.Add(tmpRiga.IdArticolo)
  606.             SItem = LItem.SubItems.Add(tmpRiga.Articolo.Descrizione)
  607.             SItem = LItem.SubItems.Add(tmpRiga.Quantita)
  608.             SItem = LItem.SubItems.Add(tmpRiga.PrezzoCosto)
  609.             SItem = LItem.SubItems.Add(tmpRiga.Iva)
  610.         Next
  611.  
  612.     End Sub
  613.  
  614.  
  615.     Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
  616.         Dim key As String
  617.         key = Me.ListView1.SelectedItems.Item(0).Text()
  618.         BufRigaDocumento = BufDocumento.ColRigaDocumento.Item(key)
  619.         InserisciCampiRiga()
  620.     End Sub
  621.  
  622.     Private Sub ButtonCancellaRiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancellaRiga.Click
  623.         If BufRigaDocumento Is Nothing Then
  624.             MessageBox.Show("Nessuna riga selezionata")
  625.         End If
  626.         Try
  627.             BufDocumento.ColRigaDocumento.Remove(CStr(BufRigaDocumento.IdRiga))
  628.         Catch
  629.         End Try
  630.         SvuotaCampiRiga()
  631.         RiempiLista()
  632.     End Sub
  633.  
  634.     Private Sub ButtonCancella_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancella.Click
  635.         BufDocumento.Cancella()
  636.         BufDocumento = Nothing
  637.         SvuotaCampi()
  638.         SvuotaCampiRiga()
  639.         SvuotaListaRighe()
  640.     End Sub
  641.  
  642.     Private Sub TxtIdArticolo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtIdArticolo.Leave
  643.         If BufRigaDocumento Is Nothing Then
  644.             MessageBox.Show("Premere prima il tasto nuovo")
  645.             Exit Sub
  646.         End If
  647.         MostraDescrizioneArticolo()
  648.     End Sub
  649.     Private Sub MostraDescrizioneArticolo()
  650.         If TxtIdArticolo.Text = "" Then
  651.             TxtDescrArticolo.Text = ""
  652.         Else
  653.             BufRigaDocumento.Articolo.IdArticolo = TxtIdArticolo.Text
  654.             BufRigaDocumento.Articolo.Ricerca()
  655.             TxtDescrArticolo.Text() = BufRigaDocumento.Articolo.Descrizione
  656.         End If
  657.     End Sub
  658.  
  659.  
  660.     Private Sub TxtIntestatario_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtIntestatario.Leave
  661.         If BufDocumento Is Nothing Then
  662.             MessageBox.Show("Premere prima il tasto nuovo")
  663.             Exit Sub
  664.         End If
  665.         MostraDescrizioneIntestatario()
  666.     End Sub
  667.  
  668.     Private Sub MostraDescrizioneIntestatario()
  669.         If TxtIntestatario.Text = "" Then
  670.             TxtDescIntestatario.Text = ""
  671.         Else
  672.             Select Case TipoDocumento
  673.                 Case "Carico"
  674.                     Dim ObjFornitore As New Fornitore()
  675.                     ObjFornitore.IdFornitore = TxtIntestatario.Text
  676.                     ObjFornitore.Ricerca()
  677.                     BufDocumento.DescrizioneIntestatario = ObjFornitore.RagioneSociale
  678.                 Case "Scarico"
  679.                     Dim ObjCliente As New Cliente()
  680.                     ObjCliente.IdCliente = TxtIntestatario.Text
  681.                     ObjCliente.Ricerca()
  682.                     BufDocumento.DescrizioneIntestatario = ObjCliente.RagioneSociale
  683.             End Select
  684.         End If
  685.         TxtDescIntestatario.Text = BufDocumento.DescrizioneIntestatario
  686.     End Sub
  687.  
  688.  
  689.     Private Sub TxtIntestatario_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtIntestatario.TextChanged
  690.  
  691.     End Sub
  692. End Class
  693.